home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / whitelin / share / boxkite / boxinput.s < prev    next >
Text File  |  1995-11-25  |  1KB  |  40 lines
  1.            EXPORT    fsel_boxinput
  2.  
  3.            TEXT
  4.  
  5. fsel_boxinput:
  6.            MOVEM.L   D2/A2-A3,-(A7)
  7.            LEA.L     -$9E(A7),A7
  8.            LEA.L     $4C(A7),A0
  9.            LEA.L     $86(A7),A2
  10.            MOVE.L    A0,(A2)
  11.            LEA.L     $2E(A7),A1
  12.            MOVE.L    A1,$04(A2)
  13.            LEA.L     $0E(A7),A1
  14.            MOVE.L    A1,$08(A2)
  15.            LEA.L     (A7),A1
  16.            MOVE.L    A1,$0C(A2)
  17.            LEA.L     $6E(A7),A1
  18.            MOVE.L    A1,$10(A2)
  19.            LEA.L     $56(A7),A3
  20.            MOVE.L    A3,$14(A2)
  21.            MOVE.W    #$5B,(A0)
  22.            CLR.W     $02(A0)
  23.            MOVE.W    #$02,$04(A0)
  24.            MOVE.W    #$04,$06(A0)
  25.            CLR.W     $08(A0)
  26.            MOVE.L    $AE(A7),(A1)
  27.            MOVE.L    $B2(A7),$04(A1)
  28.            MOVE.L    $BA(A7),$08(A1)
  29.            MOVE.L    $BE(A7),$0C(A1)
  30.            MOVE.L    A2,D1
  31.            MOVE.W    #$C8,D0
  32.            TRAP      #2
  33.            MOVEA.L   $B6(A7),A0
  34.            MOVE.W    $02(A7),(A0)
  35.            MOVE.W    (A7),D0
  36.            LEA.L     $9E(A7),A7
  37.            MOVEM.L   (A7)+,D2/A2-A3
  38.            RTS
  39.  
  40.